﻿Imports LSW.WP8.Utility
Namespace Controls
    Partial Public Class LSWMessboxControl
        Inherits UserControl
        Public Property LayoutRootImage As String = "/LSWFramework.WP8;component/Resource/bg_transparent.png"
        Public Property PTextImage As String = "/LSWFramework.WP8;component/Resource/bg_tips.png"
        Public Sub New()
            InitializeComponent()
        End Sub
        Public Property Text As String
            Get
                Return TB.Text
            End Get
            Set(value As String)
                TB.Text = value
            End Set
        End Property
        Private Sub LSWMessboxControl_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
            textImage.ImageSource = SetSource(PTextImage)
        End Sub
    End Class
End Namespace